Software of the Month Club 1996 June

home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1996 June / Software of the Month Club 1996 June.iso / pc / dos / biz / easybase / pack1.prg / NETOUT / SAMPLES / PROC10.PRO < prev next >
Unknown | 1995-11-22 | 2.1 KB
open in:
MacOS 8.1 |
Win98 |
DOS
view JSON data |
view as text

This file was not able to be converted.
This format is not currently supported by dexvert.
Confidence	Program	Detection	Match Type	Support
`1%`	dexvert	MSX Protracker Module `(music/msxProtrackerModule)`	ext	Unsupported
`1%`	dexvert	CODESYS Project `(other/codesysProject)`	ext	Unsupported
`1%`	dexvert	Show Partner Mastered Show `(other/showPartnerMasteredShow)`	ext	Unsupported
`100%`	file	data	default
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 2f 00 64 65 63 6c 61 72 | 65 20 6f 75 74 70 75 74 |/.declar|e output|
|00000010| 20 66 69 65 6c 64 73 0d | 0a 20 20 20 41 64 64 72 | fields.|.   Addr|
|00000020| 65 73 73 65 73 2e 4e 61 | 6d 65 20 3a 61 64 64 72 |esses.Na|me :addr|
|00000030| 65 73 73 65 73 2e 41 64 | 64 72 65 73 73 20 3a 61 |esses.Ad|dress :a|
|00000040| 64 64 72 65 73 73 65 73 | 2e 50 6f 73 74 63 6f 64 |ddresses|.Postcod|
|00000050| 65 0d 0a 20 20 20 4c 6e | 61 6d 65 20 3a 20 4c 61 |e..   Ln|ame : La|
|00000060| 64 64 72 65 73 73 20 3a | 20 4c 70 6f 73 74 63 6f |ddress :| Lpostco|
|00000070| 64 65 0d 0a 65 6e 64 0d | 0a 27 2e 2e 2e 2e 2e 2e |de..end.|.'......|
|00000080| 2e 2e 2e 2e 2e 2e 2e 2e | 2e 2e 2e 2e 2e 61 6c 6c |........|.....all|
|00000090| 20 6f 72 20 67 72 6f 75 | 70 2e 2e 2e 2e 2e 2e 2e | or grou|p.......|
|000000a0| 2e 2e 2e 2e 2e 2e 2e 2e | 2e 2e 2e 2e 2e 0d 0a 69 |........|.......i|
|000000b0| 66 20 69 6e 70 75 74 2e | 67 72 6f 75 70 20 3c 3e |f input.|group <>|
|000000c0| 20 22 43 68 6f 6f 73 65 | 20 72 65 63 69 70 69 65 | "Choose| recipie|
|000000d0| 6e 74 22 20 74 68 65 6e | 0d 0a 20 20 20 69 66 20 |nt" then|..   if |
|000000e0| 69 6e 70 75 74 2e 41 6c | 6c 6f 72 67 72 6f 75 70 |input.Al|lorgroup|
|000000f0| 20 3d 20 22 61 6c 6c 20 | 61 64 64 72 65 73 73 65 | = "all |addresse|
|00000100| 73 22 20 74 68 65 6e 0d | 0a 20 20 20 20 20 20 66 |s" then.|.      f|
|00000110| 6f 72 20 41 64 64 72 65 | 73 73 65 73 0d 0a 20 20 |or Addre|sses..  |
|00000120| 20 65 6e 64 20 69 66 0d | 0a 20 20 20 69 66 20 69 | end if.|.   if i|
|00000130| 6e 70 75 74 2e 41 6c 6c | 6f 72 67 72 6f 75 70 20 |nput.All|orgroup |
|00000140| 3c 3e 20 22 61 6c 6c 20 | 61 64 64 72 65 73 73 65 |<> "all |addresse|
|00000150| 73 22 20 74 68 65 6e 0d | 0a 20 20 20 20 20 20 66 |s" then.|.      f|
|00000160| 6f 72 20 41 64 64 72 65 | 73 73 65 73 20 77 69 74 |or Addre|sses wit|
|00000170| 68 20 47 72 6f 75 70 69 | 6e 67 20 3d 20 69 6e 70 |h Groupi|ng = inp|
|00000180| 75 74 2e 67 72 6f 75 70 | 0d 0a 20 20 20 65 6e 64 |ut.group|..   end|
|00000190| 20 69 66 0d 0a 20 20 20 | 20 20 20 69 66 20 4c 6e | if..   |   if Ln|
|000001a0| 61 6d 65 20 3d 20 62 6c | 61 6e 6b 20 74 68 65 6e |ame = bl|ank then|
|000001b0| 0d 0a 20 20 20 20 20 20 | 20 20 20 4c 6e 61 6d 65 |..      |   Lname|
|000001c0| 20 3d 20 61 64 64 72 65 | 73 73 65 73 2e 6e 61 6d | = addre|sses.nam|
|000001d0| 65 3a 4c 61 64 64 72 65 | 73 73 20 3d 20 61 64 64 |e:Laddre|ss = add|
|000001e0| 72 65 73 73 65 73 2e 61 | 64 64 72 65 73 73 0d 0a |resses.a|ddress..|
|000001f0| 20 20 20 20 20 20 20 20 | 20 4c 70 6f 73 74 63 6f |        | Lpostco|
|00000200| 64 65 20 3d 20 61 64 64 | 72 65 73 73 65 73 2e 70 |de = add|resses.p|
|00000210| 6f 73 74 63 6f 64 65 0d | 0a 20 20 20 20 20 20 65 |ostcode.|.      e|
|00000220| 6c 73 65 0d 0a 20 20 20 | 20 20 20 20 20 20 70 72 |lse..   |      pr|
|00000230| 69 6e 74 20 6c 69 73 74 | 20 69 74 65 6d 73 0d 0a |int list| items..|
|00000240| 20 20 20 20 20 20 20 20 | 20 4c 6e 61 6d 65 20 3d |        | Lname =|
|00000250| 20 62 6c 61 6e 6b 3a 4c | 61 64 64 72 65 73 73 20 | blank:L|address |
|00000260| 3d 20 62 6c 61 6e 6b 3a | 4c 70 6f 73 74 63 6f 64 |= blank:|Lpostcod|
|00000270| 65 20 3d 20 62 6c 61 6e | 6b 0d 0a 20 20 20 20 20 |e = blan|k..     |
|00000280| 20 65 6e 64 20 69 66 0d | 0a 20 20 20 6e 65 78 74 | end if.|.   next|
|00000290| 0d 0a 20 20 20 6e 65 78 | 74 0d 0a 20 20 20 69 66 |..   nex|t..   if|
|000002a0| 20 4c 6e 61 6d 65 20 3c | 3e 20 62 6c 61 6e 6b 20 | Lname <|> blank |
|000002b0| 74 68 65 6e 20 70 72 69 | 6e 74 20 6c 61 73 74 6c |then pri|nt lastl|
|000002c0| 69 6e 65 0d 0a 65 6c 73 | 65 0d 0a 20 20 20 27 2e |ine..els|e..   '.|
|000002d0| 2e 2e 2e 2e 2e 2e 2e 2e | 2e 2e 2e 2e 2e 2e 2e 2e |........|........|
|000002e0| 70 69 63 6b 20 6c 69 73 | 74 0d 0a 20 20 20 66 6f |pick lis|t..   fo|
|000002f0| 72 20 41 64 64 72 65 73 | 73 65 73 20 77 69 74 68 |r Addres|ses with|
|00000300| 20 67 72 6f 75 70 69 6e | 67 20 69 6e 20 6f 72 64 | groupin|g in ord|
|00000310| 65 72 0d 0a 20 20 20 20 | 20 20 69 66 20 61 64 64 |er..    |  if add|
|00000320| 72 65 73 73 65 73 2e 47 | 72 6f 75 70 69 6e 67 20 |resses.G|rouping |
|00000330| 3d 20 22 6d 61 67 61 7a | 69 6e 65 20 65 64 69 74 |= "magaz|ine edit|
|00000340| 6f 72 73 22 20 74 68 65 | 6e 20 73 6b 69 70 20 67 |ors" the|n skip g|
|00000350| 72 6f 75 70 0d 0a 20 20 | 20 20 20 20 66 6f 72 20 |roup..  |    for |
|00000360| 50 69 63 6b 4c 69 73 74 | 20 4e 65 77 20 52 65 63 |PickList| New Rec|
|00000370| 6f 72 64 0d 0a 20 20 20 | 20 20 20 20 20 20 70 69 |ord..   |      pi|
|00000380| 63 6b 6c 69 73 74 2e 49 | 74 65 6d 20 3d 20 61 64 |cklist.I|tem = ad|
|00000390| 64 72 65 73 73 65 73 2e | 4e 61 6d 65 0d 0a 20 20 |dresses.|Name..  |
|000003a0| 20 20 20 20 6e 65 78 74 | 0d 0a 20 20 20 6e 65 78 |    next|..   nex|
|000003b0| 74 0d 0a 20 20 20 73 68 | 6f 77 20 70 69 63 6b 6c |t..   sh|ow pickl|
|000003c0| 69 73 74 0d 0a 20 20 20 | 66 6f 72 20 70 69 63 6b |ist..   |for pick|
|000003d0| 6c 69 73 74 20 77 69 74 | 68 20 6d 61 72 6b 20 3d |list wit|h mark =|
|000003e0| 20 63 68 72 24 28 32 35 | 31 29 0d 0a 20 20 20 20 | chr$(25|1)..    |
|000003f0| 20 20 66 6f 72 20 61 64 | 64 72 65 73 73 65 73 20 |  for ad|dresses |
|00000400| 77 69 74 68 20 4e 61 6d | 65 20 3d 20 70 69 63 6b |with Nam|e = pick|
|00000410| 6c 69 73 74 2e 49 74 65 | 6d 0d 0a 20 20 20 20 20 |list.Ite|m..     |
|00000420| 20 20 20 20 69 66 20 4c | 6e 61 6d 65 20 3d 20 62 |    if L|name = b|
|00000430| 6c 61 6e 6b 20 74 68 65 | 6e 0d 0a 20 20 20 20 20 |lank the|n..     |
|00000440| 20 20 20 20 20 20 20 4c | 6e 61 6d 65 20 3d 20 61 |       L|name = a|
|00000450| 64 64 72 65 73 73 65 73 | 2e 6e 61 6d 65 3a 4c 61 |ddresses|.name:La|
|00000460| 64 64 72 65 73 73 20 3d | 20 61 64 64 72 65 73 73 |ddress =| address|
|00000470| 65 73 2e 61 64 64 72 65 | 73 73 0d 0a 20 20 20 20 |es.addre|ss..    |
|00000480| 20 20 20 20 20 20 20 20 | 4c 70 6f 73 74 63 6f 64 |        |Lpostcod|
|00000490| 65 20 3d 20 61 64 64 72 | 65 73 73 65 73 2e 70 6f |e = addr|esses.po|
|000004a0| 73 74 63 6f 64 65 0d 0a | 20 20 20 20 20 20 20 20 |stcode..|        |
|000004b0| 20 65 6c 73 65 0d 0a 20 | 20 20 20 20 20 20 20 20 | else.. |        |
|000004c0| 20 20 20 70 72 69 6e 74 | 20 6c 69 73 74 20 69 74 |   print| list it|
|000004d0| 65 6d 73 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |ems..   |        |
|000004e0| 20 4c 6e 61 6d 65 20 3d | 20 62 6c 61 6e 6b 3a 4c | Lname =| blank:L|
|000004f0| 61 64 64 72 65 73 73 20 | 3d 20 62 6c 61 6e 6b 3a |address |= blank:|
|00000500| 4c 70 6f 73 74 63 6f 64 | 65 20 3d 20 62 6c 61 6e |Lpostcod|e = blan|
|00000510| 6b 0d 0a 20 20 20 20 20 | 20 20 20 20 65 6e 64 20 |k..     |    end |
|00000520| 69 66 0d 0a 20 20 20 20 | 20 20 6e 65 78 74 0d 0a |if..    |  next..|
|00000530| 20 20 20 6e 65 78 74 0d | 0a 20 20 20 69 66 20 4c |   next.|.   if L|
|00000540| 6e 61 6d 65 20 3c 3e 20 | 62 6c 61 6e 6b 20 74 68 |name <> |blank th|
|00000550| 65 6e 20 70 72 69 6e 74 | 20 6c 61 73 74 6c 69 6e |en print| lastlin|
|00000560| 65 0d 0a 20 20 20 63 6c | 65 61 72 20 72 65 63 6f |e..   cl|ear reco|
|00000570| 72 64 73 20 66 72 6f 6d | 20 70 69 63 6b 6c 69 73 |rds from| picklis|
|00000580| 74 0d 0a 65 6e 64 20 69 | 66 0d 0a 0d 0a 0d 0a 17 |t..end i|f.......|
|00000590| 00 2e 4c 69 73 74 20 49 | 74 65 6d 73 0d 0a 0d 0a |..List I|tems....|
|000005a0| 0d 0a 0d 0a 0d 0a 0d 0a | 0d 0a 0d 0a 0d 0a 0d 0a |........|........|
|000005b0| 2e 6c 61 73 74 6c 69 6e | 65 0d 0a 0d 0a 0d 0a 0d |.lastlin|e.......|
|000005c0| 0a 0d 0a 0d 0a 0d 0a 0d | 0a 0d 0a 0d 0a 2e 45 6e |........|......En|
|000005d0| 64 0d 0a 0d 0a 0d 0a 09 | 00 04 00 0b 00 14 00 14 |d.......|........|
|000005e0| 00 01 00 4c 6e 61 6d 65 | 20 20 20 20 20 20 20 20 |...Lname|        |
|000005f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000600| 20 20 20 20 20 20 20 20 | 20 20 20 32 30 20 20 04 |        |   20  .|
|00000610| 00 4e 6f 20 54 65 78 74 | 20 20 20 20 20 20 20 20 |.No Text|        |
|00000620| 20 20 04 00 2d 00 14 00 | 14 00 01 00 41 64 64 72 |  ..-...|....Addr|
|00000630| 65 73 73 65 73 2e 4e 61 | 6d 65 20 20 20 20 20 20 |esses.Na|me      |
|00000640| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000650| 20 20 20 20 32 30 20 20 | 01 00 4e 6f 20 54 65 78 |    20  |..No Tex|
|00000660| 74 20 20 20 20 20 20 20 | 20 20 20 05 00 0b 00 14 |t       |   .....|
|00000670| 00 50 00 04 00 4c 61 64 | 64 72 65 73 73 20 20 20 |.P...Lad|dress   |
|00000680| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000690| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 00 00 20 |        |     .. |
|000006a0| 34 05 00 4e 6f 20 54 65 | 78 74 20 42 6c 6f 63 6b |4..No Te|xt Block|
|000006b0| 20 20 20 20 05 00 2d 00 | 14 00 50 00 04 00 61 64 |    ..-.|..P...ad|
|000006c0| 64 72 65 73 73 65 73 2e | 41 64 64 72 65 73 73 20 |dresses.|Address |
|000006d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000006e0| 20 20 20 20 20 20 32 30 | 20 34 02 00 4e 6f 20 54 |      20| 4..No T|
|000006f0| 65 78 74 20 42 6c 6f 63 | 6b 20 20 20 20 09 00 0b |ext Bloc|k    ...|
|00000700| 00 08 00 08 00 01 00 4c | 70 6f 73 74 63 6f 64 65 |.......L|postcode|
|00000710| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000720| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000730| 38 20 20 06 00 4e 6f 20 | 54 65 78 74 20 20 20 20 |8  ..No |Text    |
|00000740| 20 20 20 20 20 20 09 00 | 2d 00 08 00 08 00 01 00 |      ..|-.......|
|00000750| 61 64 64 72 65 73 73 65 | 73 2e 50 6f 73 74 63 6f |addresse|s.Postco|
|00000760| 64 65 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |de      |        |
|00000770| 20 20 20 20 20 20 20 20 | 20 38 20 20 03 00 4e 6f |        | 8  ..No|
|00000780| 20 54 65 78 74 20 20 20 | 20 20 20 20 20 20 20 0e | Text   |       .|
|00000790| 00 0b 00 14 00 14 00 01 | 00 4c 6e 61 6d 65 20 20 |........|.Lname  |
|000007a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000007b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000007c0| 20 32 30 20 20 04 00 4e | 6f 20 54 65 78 74 20 20 | 20  ..N|o Text  |
|000007d0| 20 20 20 20 20 20 20 20 | 0f 00 0b 00 14 00 50 00 |        |......P.|
|000007e0| 04 00 4c 61 64 64 72 65 | 73 73 20 20 20 20 20 20 |..Laddre|ss      |
|000007f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000800| 20 20 20 20 20 20 20 20 | 20 20 00 00 20 34 05 00 |        |  .. 4..|
|00000810| 4e 6f 20 54 65 78 74 20 | 42 6c 6f 63 6b 20 20 20 |No Text |Block   |
|00000820| 20 13 00 0b 00 08 00 08 | 00 01 00 4c 70 6f 73 74 | .......|...Lpost|
|00000830| 63 6f 64 65 20 20 20 20 | 20 20 20 20 20 20 20 20 |code    |        |
|00000840| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000850| 20 20 20 20 38 20 20 06 | 00 4e 6f 20 54 65 78 74 |    8  .|.No Text|
|00000860| 20 20 20 20 20 20 20 20 | 20 20 03 00 41 64 64 72 |        |  ..Addr|
|00000870| 65 73 73 20 4c 61 62 65 | 6c 73 20 20 20 20 20 20 |ess Labe|ls      |
+--------+-------------------------+-------------------------+--------+--------+